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PRO/FMS-1 1 
DOCUMENTATION SUPPLEMENT 


1.0 RELATED DOCUMENTATION 


This manual supplements two manuals: FMS-711/RSX Software Reference 
Manual and FMS-11/RSX Release Notes. Both these manuals are included in 
the Too/ Kit Documentation Directory. The FMS-11/RSX Mini-Reference is not 
included in the Tool Kit documentation set, but may also be useful when you are 
developing PRO/FMS-11 applications. 


2.0 PRO/FMS-11 


PRO/FMS-11 is a development tool based on FMS-11. A forms-oriented video 
/(O management system, PRO/FMS-11 runs on the Professional Developer's 
Tool Kit host systems: RSX-11M/11M-PLUS and VAX/VMS. This supplement 
describes the differences between FMS-11 applications designed for 
minicomputer/VT100 systems and PRO/FMS-11 applications designed for the 
Professional. 


The material here is intended for experienced FMS-11 programmers. If you 
have not previously programmed with FMS-11, you should start with the FMS/ 
RSX-11 documentation. 


3.0 PRO/FMS-11 PROGRAM DEVELOPMENT 
You can develop PRO/FMS-11 applications in the following Tool Kit languages: 


Tool Kit BASIC-PLUS-2 
Tool Kit COBOL-81 
Tool Kit FORTRAN-77 
Tool Kit MACRO-11 
Tool Kit PASCAL 


Ea as ee ES 


2 PRO/FMS-11 DOCUMENTATION SUPPLEMENT 


For specific restrictions and examples, turn to the section, “Sample PRO/ 
FMS-11 programs” at the end of this manual. 


Two PRO/FMS-11 files, DEMLIB.FLB and FASDBG.MSG, are supplied on dis- 
_ kette with the Tool Kit. You will need these files to run the sample programs 
and debug your own applications. To copy them to your Professional, follow the 
steps in this manual’s section “Installation Procedures.” 


The program development cycle for PRO/FMS-11 applications is as follows: 


1: 


10. 


Using a VT100, or a Professional in Terminal Emulation Mode, create 
forms on the host system with the PRO/FMS Forms Editor (PROFED). 
To invoke PROFED on RSx, type: 


On VMS, type: 


mek ERG wee RV Tr iM Somer ooer 
SR LIN SYS#SYSTEM: | ROFED 


Create a form library on the host system with the PRO/FMS Form Utility 
(PROFUT). To invoke PROFUT on RSX, type: 


>RUN $PROFUT 
On VMS, type: 
$RUN SYSS$SYSTEM: PROFUT 


Write a source program; include the necessary Form Driver calls in the 
source code. 


Note: Use the debug version of the Form Driver (FDVDBG.OLB) to debug at 
the Professional. Use the non-debug version (FDV.OLB) when program is error- 
free. 


Compile (or assemble) the program. 


Following the instructions in this manual, include the Form Driver in the 
overlay descriptor (.ODL) file. 


Task build the program. 
Write the application Installation file. 


Copy the form library, task image, and application installation file to the 
Professional. 


Install the application onto a P/OS menu. 


Run the program. 


Figure 1 illustrates the development cycle. 
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Figure 1 PRO/FMS-11 Development Cycle 
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4.0 THE FORMS EDITOR 


PRO/FMS-11 allows fixed decimal fields to include a comma in place of a period 
for European applications. 


4.1 Terminal Emulation 


To run PROFED in terminal emulation, you must set your terminal to VT102 
emulation mode. If you want to use DEC multinational 8-bit mode characters, 
then you must also: 

L] Setthe Professional to Terminal Emulator 8-bit mode. 

L] Setthe host to 8-bit mode. On RSX systems use the command: 


eeyp /FRCATT. 
Fe! #EBC=T1i= 


On VMS systems use the command: 


OCT TOCOMTAAL /CTCUT RTT 
SET TERMINAL/EIGHT_BIT 


The default is 7-bit mode. 
The following features are available once your system is in 8-bit mode: 


| Field-marker characters can include characters 241-277 octal. 


[] Background text can include the entire DEC Multinational Character 
Set. 


L] During application execution, PROFED forms (named data, form wide 
attributes, and field attributes) will accept the DEC Multinational Char- 
acter Set as input where any displayable character is requested. 


Note that the DEC Multinational Character Set uses 8-bit codes: if you want to 
use 8-bit codes in form descriptions, you must create the forms on a Profes- 
sional. (See the Terminal Subsystems Manual for more information on the DEC 
Multinational Character Set.) Otherwise you can create forms on a VT100, 
using the full printable ASCII character set. 


4.2 Attribute Differences 


Three attributes operate differently with PRO/FMS-11 on the Professional from 
FMS/RSX-11 on a VT100: 
Bold field—supported in wide-screen (132-column) mode. 
Boid reverse video field—Not recommended. 
Blink field—Can detract from PRO/FMS-11 performance if used exces- 
sively. 


These differences may affect Professional system performance or form reliabil- 
ity. You should avoid these attributes when you create PRO/FMS-11 applica- 
tions. 
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5.0 THE FORM DRIVER 

The form library file specifications must have the following format: 
device:Cdirectoryvyifile.,typlLiversion]y 

The directory must be enclosed in square brackets. Only the version is optional. 
To determine the device and directory where the application resides, use PRO- 
LOG services (a P/OS service) to translate the logical APPL$DIR. See the P/OS 
System Reference Manual for more details on PROLOG services. 


9.1 The Professional Keyboard And The Form Driver 


PRO/FMS-11 uses different keys for some field terminators and interactive 
functions involving the Form Driver. The following tables list these differences. 


Table 1 
Keyboard Differences—All Regions 


Function VT100 

Enter form ENTER/RETURN DO, ENTER/RETURN 
Move to next field TAB Fig 
Move to previous field BACKSPACE Fi4 
Cursor left ma $= 
Cursor right ea cam 

Erase character DELETE | <X] 
Erase field LINEFEED REMOVE 
Insert/Overstrike PF1 F13 

Help PF2 HELP 
Repaint screen CTRL/W F20 
Table 2 


Keyboard Differences—Scrolled Regions 


Function VT100 Professional 
Move to previous line t t 

Move to next line J j 

Exit field backward PF1 F17 


Exit field forward PF2 F18 


When a help form is displayed, the RESUME key can be used instead of the DO 
key, and the NEXT SCREEN key can be used instead of HELP. 
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5.2 Task Building with the Form Driver Object Library 


The Form Driver object library must be task built with your application program. 


Note: Because the Form Driver requires P/OS User Interface Service Rou- 
tines support, you must perform the procedure described in the section in the 
Tool Kit User’s Guide on the Professional Application Builder. 


For example, if your source code is in BASIC-PLUS-2, the BASIC-PLUS-2 com- 
piler will generate a command file (filename.CMD) and an overlay description 
file (filename.ODL) when you enter the BUILD command. You must edit the 
command file and the overlay description file to include the Form Driver object 
library. 


5.2.1 Editing the Command File—You must edit the command (.CMD) file for 
your PRO/FMS-11 application for the language you are using. See your lan- 
guage documentation for details. The command (.CMD) file generated by the 
BASIC-PLUS-2 compiler for an application named “TEST1” would look some- 


thing like this once it had been edited for BASIC-PLUS-2: 


SY¥:TESTI/CP=SY:TEST1/MP 

TASK = taskK-name 

UNITS = 18 

ASG = Ti:i3:15 

ASG = SY ss1b2e7285S8s102blsi2 
EXTTSK= 952 

CLSTR = PBESML;+RMSRES»POSRES:RO 


EXTSCT = MNSBUF: 4540 3 Static single choice menu 
EXTSCT = DM#BUF:4540 5 dynamic single choice menu 
EXTSCT = MMS$BUF:1000 5 multi-screen menu 

EXTSCT = HL#BUF:3410 5 help text/menu 

EXTSCT = FL#BUF:4310 s file selection/sPecification 
GBLDEF = MN#LUN:20 , menu frame file 

GBLDEF = HL#LUN:2i1 ; help frame file 

GBLDEF = MS#LUN:i6 7; message frame file 

GBLDEF = TT#LUN:15 j terminal 1/0 

GBLDEF = TT#EFN: 3 terminal I/O event flag 


1 
GBLDEF = WC#LUN:22 5 directory searches for OLDFIL and NEWFIL 
5 Foutine or callable Print services 
/f 


You must also edit the command file to use it with PRO/FMS-11. Follow these 
steps: 


L] FDV uses Logical Unit 5 for input and output to the terminal. Find the 
lines beginning with “ASG” and edit them to read: 


ASG = T1213:13:5 
ASG = SY¥:6:7:8:9:1i90siisie 
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L] Setthe extend section (EXTSCT) command as follows: 


EXTSCT = HL#BUF:3410 5 help text/menu 

If your application uses the P/OS Help services (described in the 
next section of this supplement), compute your frame size and set 
the extension to this value if it is larger than the current value. See 
Chapter 2 of the Too/ Kit User’s Guide for information on calculat- 
ing frame size. 


The fully edited command file for “TEST1” would look like this (changed lines 
are shaded): 


sis TESTISCP=SyY 2 TESTIS MP 
TASK = 
UNITS 


task-name 
18 


EXTTSK= 952 


CLSTR = PBESML+>RMSRES+POSRES:RO 
EXTSCT = MN#BUF:4540 5 Static single choice menu 
EXTSCT = DMS$BUF: 4540 5 dynamic single choice menu 


EXTSCT = MMSBUF: 1000 5 multi-screen menu 


00) 6k 


ee rt—“‘“‘“(“‘(‘(‘(‘(‘(‘(‘(<“(<‘<(‘<‘<‘(‘(‘ é)PJ 


— 


EXTSCT = 


FLSBUF: 


selection/specification 


4310 5 file 
GBLDEF = MN#LUN:20 7 menu frame file 
GBLDEF = HL$LUN:21 7 help frame file 
GBLDEF = MS#LUN:16 5 message frame file 
GBLDEF = TT#LUN:15 ) terminal I/0 
GBLDEF = TTSEFN:1 ; terminal I/0 event flag 
GBLDEF = WCSLUN:22 3 directory searches for OLDFIL and NEWFILE 
5 Toutine or callable Print services 
// 


5.2.2 Editing The Descriptor File—Your application must reference the PRO/ 
FMS-11 Form Driver, either the non-debug version (FDV) or the debug version 
(FDVDBG). To do this, edit the overlay descriptor (.ODL) file to include the Form 
Driver as part of the root segment of the program, concatenated with the object 
module. For example, to include the non-debug Form Driver in a BASIC- 
PLUS-2 .ODL file, you would change the first line from this: 


»ROOT BASIC2-RMSROT-USER +RMSALL 
To this: 


»ROOT BASIC2-RMSROT-USER-FDY »RMSALL 
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In addition, you must add a new .FCTR line after the LIBR: line of your .ODL file: 


L] BASIC-PLUS-2: For the non-debug version of the Form Driver, add the 
line: 


FOV: *FCTR LB: fi sSJHLLBP2-LB:C1i+sSIFOV/LB 


For the debug version of the Form Driver, add the line: 
FOWs »FCTR LB:i+S5]HLLBP2-LB:£1s+51]FDVDBG/LB 

[] COBOL-81: Your edit to a COBOL-81 file will depend on whether your 
program passes variablés by descriptor or by reference. Look at the 
section "Tool Kit COBOL-81"' in this manual for more information and 


sample programs. lf variables are passed by descriptor and you are 
using the non-debug version of the Form Driver, add the line: 


FOU: »FCTR LB: Ci+S]HLLCOB-LB:£1+5]FDV/LB 
lf variables are passed by descriptor and you are using the debug ver- 
sion the Form Driver, add the line: 
FD: »FCTR LB:Ci+S]HLLCOB-LB:[1+5]FDVDBG/LB 
lf variables are passed by reference and you are using the non-debug 
version of the Form Driver, add the line: 
FOV: »FCTR LB: Ci+sSJHLLCBL-LB:Ci+sS513FDV/LB 
lf variables are passed by reference and you are using the debug ver- 
sion of the Form Driver, add the line: 
FOV: »FCTR LB: Ci+SJHLLCBL-LB:[f1i+517FDVDBG/LB 

[J FORTRAN-77: For the non-debug version of the Form Driver, add the 
line: 


FDWs »FCTR LB: Ci sSJHLLFOR-LB: fi +SIFDV/LB 


For the debug version of the Form Driver, add the line: 


FDV: »-FCTR LB: fi+SIJHLLFOR-LB:T1;+S51FDVDBG/LB 


[] MACRO-11: For the non-debug version of the Form Driver, add the line: 


FDOWs *PCTR LEtl tas tFOY/ ce 


For the debug version of the Form Driver, add the line: 
FDU: »FCTR LB:[i+S1]FDVDBG/LB 

L] PASCAL: PASCAL uses the FORTRAN version of the PRO/FMS-1 1 
Form Driver. For the non-debug version of the Form Driver, add the line: 


FDWs *FCTR LBsCisSIHLLFOR-LB:C1,S3]FO0V/LB 
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For the debug version of the Form Driver, add the line: 


FDWs »*FCTR LB: Ci+SIJHLLFOR-LB: (C1 »SIFDVDBG/LB 


The original .ODL file for a BASIC-PLUS-2 application named “TEST1” 
would look like this: 


»ROOT BASIC2-RMSROT-USER +RMSALL 
USER: *FCTR SY:TESTI-LIBR 
LioR ‘PCTR LB? Tiss IT PRBEOTS7LB 
@LB:C1i,»S]PBEICi 
@LB:Ci»SIRMSRLX 

» END 


Edited to reference the non-debug version of the PRO/FMS-11 Form 
Driver, the BASIC-PLUS-2 .ODL file would look like this (new lines are 


shaded): 

| -ROOT BASIC2-RMSROT-USER-FDV;>RMSALL | 
USER: »FCTR SY¥:TESTI-LIBR 

LIBR: ».FCTR LB:01+s5]PBEOTS/LB 

FOV: »FCTR LB:f1;+5]HLLBP2-LB:01-S5]FDV/LB 


@LB:Ci,»,S]PBEICI 
@LB:C1 +SIRMSRLX 
»END 


The debug version of the edited BASIC-PLUS-2 .ODL would look like 
this: 


: ROOT BASIC2-RMSROT-USER-FDV;+RMSALL 
USER:  .FCTR SY:TEST1-LIBR 
LIBR:  .FCTR LB:C1+51]PBEOTS/LB 
FDV: ,FCTR LB:CisSJHLLBP2-LB:f1,5]FDVDBG/LB 
@LB:C1,51PBEIC1 
@LB:C1/+57RMSRLX 
/END 


See the programs at the end of this manual for sample edited .ODL files. 


6.0 HELP 


PRO/FMS-11 applications can use P/OS help frames in addition to regular FMS 
help forms. 


When the end user first presses the HELP key, help is displayed from the 
sources in the following order: 
1. Aone-line help message for current field 
The Help form specified by current form 


The P/OS help frame specified in the Named Data section of the current 
form 
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When the end user presses the HELP key again or presses the NEXT SCREEN 
key, help is displayed from the sources in this order: 


1. The help form specified by current form 


2. The P/OS help frame specified in the Named Data section of the last 
form displayed 


To provide P/OS Help services with PRO/FMS-11, follow these steps: 


1. Use the Frame Development Tool (FDT) to create help frame files. 


2. Runthe PRO/FMS-11 Forms Editor (PROFED) and retrieve the form. 
Enter the NAME command. PROFED will display the Named Data Entry 
Form. 


3. In Named Data Entry Form, enter “.HELP.” in the Name field and the 
frame identifier (frameid) in the Data field. 


4. [Edit your source code so that it includes calls to P/OS Help services to 
open the Help file before the Form Driver is called, and to close the Help 
file before the program exits. 


5. Make sure you have edited the command file according to Section 5.2.1 
of this supplement. | 


6. Runthe PRO/FMS-11 Forms Utility (PROFUT) and replace the old form 
with the new one. 


A completed Named Data Entry form would look something like this: 


Name Data 
}--~.~-! P~---------- ee ee ee ee a ee ee ee ee + | 


eHEL Ps INFO2 


You may use a maximum of 60 forms per library, with up to 4 libraries open at 
one time. 


See the Too/ Kit User’s Guide for a description of the Frame Development Tool 
and information on creating Help definition files. 


7.0 FLOPEN 


FLOPEN, the FMS command to open a specified form library file, always 
returns a successful completion message, regardless of the call’s actual suc- 
cess or failure. Error messages will result if the file was in fact not open by the 
FLOPEN call. 


You should check the file’s status when issuing subsequent calls. Use the 
FSTAT call to determine whether the file was opened. 


8.0 
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INSTALLATION PROCEDURES 


On the RX50 diskette (volume label PRO/APP DSKT BLDR V1.5) supplied, with 
the Tool Kit, in directory PROFMS, are two PRO/FMS-11 files: 


LJ 


a 


DEMLIB.FLB—Contains forms for the sample PRO/FMS-11 programs 
supplied with the Tool Kit. You will need this file on your Professional to 
run the sample programs. 


FMSDBG.MSG—Contains error messages for PRO/FMS-11 programs 
built against FDVDBG. You will need this file on your Professional to run 
debug versions of your programs. 


To copy the files from the diskette to SYSDISK:[001,002] on your Professional, 
follow these steps: | 


os 


oF ae oe 


10. 
bls 


13. 


14. 


Insert the diskette in a diskette drive slot. 

Go to the Main Menu. Select File Services. Press DO. 

The File Services menu will appear. Select Copy File and press DO. 
Press ADDTNL OPTIONS. 


The Additional Options menu will appear. Select Choose a different 
directory/volume and press DO. 


The Directory Selection menu will appear. Select the directory 
PROFMS from the volume Toolkit and press DO. 


The File Selection menu will appear. Select the file from the list of files, 
either DEMLIB.FLB or FASDBG.MSG. Press DO. 


The Name a File Form will appear. Press ADDTNL OPTIONS. 


The Additional Options menu will reappear. Select Choose a different 
directory/volume. Press DO. 


The Directory Selection menu will appear. Press ADDTNL OPTIONS. 


The Additional Options menu will appear. Select Choose a System 
Directory. Press DO. 


The Directory Selection menu will appear. Select 001002. Press DO. 
The Name a File Form will reappear. Type in the filename of the file you 
selected, for example, DEMLIB. 


When the file has been copied to the disk directory 001002, the File 
Services menu will reappear. 


To install the other file, repeat this procedure from step 3. To display the 
Main Menu, press MAIN SCREEN. 
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9.0 SAMPLE PRO/FMS-11 PROGRAMS 


A sample PRO/FMS-11 program in each of the Tool Kit languages is included 
with the Tool Kit. After the Tool Kit has been installed on your host system, you 
can find these program in directory LB:[1,5]. Copy the files to your own area if 
you wish. You'll find the accompanying forms in the file DEMLIB.FLB on the dis- 
kette distributed with the Tool Kit. Use the instructions in this manual, in the sec- 
tion on installation procedures, to copy the file to your Professional. The rest of 
this section contains listings of the sample programs, with any restrictions or 
comments you may need. 


9.1 


106 
110 
120 
130 
140 
150 
160 
L2o 
180 
190 
200 
210 
220 
230 
240 
245 
2o0 
290 
29/7 
260 
2/0 
280 
290 
292 
294 
£96 
£98 
300 
301 
302 
303 
304 
305 
306 
307 
308 
308 
310 
Sil 


Tool Kit BASIC-PLUS-2 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


BASDEM.B25 


COPYRIGHT «C2 1979 BY 
DIGITAL EQUIPMENT CORPORATION: MAYNARD + 

MODULE: BASDEM 
VERSION: VYo1l.a0 
AUTHOR: Megan 
DATE: 10-APRIL-79 
MODIFIED: Ducharme 
DATE: 1i1-MARCH-1983 Changed Command and 

BASIC Plus 2 V2.0 demonstration Program for FMS 

simple form-driven+ data entry application. 


Below is an example of a command and ODL file to build 


this demonstration Program. 


4 

BASDEM.CMD 

SY:BASDEM/CP/FP »BASDEM/-SP=SY:BASDEM/MP 
TASK = BASDEM 

UNITS = 19 

ASG = Tl:i3:i5:5 

ASG = S¥:1:6:7:8:9:10:11:12 

EXTTSK= 952 

CLSTR=PBESML »POSSUM+POSRES +RMSRES:RO 


EXTSCT=MNSBUF:0 sSINGLE CHOICE MENU 
EXTSCT=DM#BUF:0 IDYNAMIC SINGLE CHOICE 
EXTSCT=HLSBUF : 3410 sHELP 

EXTSCT=MS#BUF: 3100 iMESSAGE 


odl file 


1llustrating a 


312 
313 
314 
315 
316 
ai7 
318 
319 
320 
321 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
440 
450 
500 
501 
502 
503 
504 
505 
510 
520 
530 
550 
560 
570 
580 
590 

600 
610 
620 
625 
630 
635 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


‘DIM 


C$=5 
F1ig= 
F2%= 
A$=5 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 
CALL 
CALL 
CALL 
REM 
REM 
REM 
REM 
REM 
CALL 
CALL 
CALL 
CALL 


PRO/FMS-11 DOCUMENTATION SUPPLEMENT 


EXTSCT=MMSBUF:0 
EXTSCT=FLSBUF:0 
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IMUTLI-CHOICE MENU 
IMULTI-CHOICE MENU 


GBLDEF=MN$LUN: 22 ;MENU 
GBLDEF=HL$LUN: 20 ;HELP 
GBLDEF=MS$LUN:21 ;MESSAGE 
GBLDEF=TT$LUN:15 STERMINAL I/O LUN 
GBLDEF=WC$LUN: 23 SFILE LUN 


GBLDEF=TTSEFN:1 


31/0 EVENT FLAG 


build BASDEM 


BASIC2-RMSROT-USER-FDY »RMSALL 


// 
5 
; TKB command file to 
j 
»>ROOT 
USER: »FCTR SY:BASDEM-LIBR 
LIBR: »FCTR LB: f1+S]PBEOTS/LB 
FDV: »FCTR 


@LB:C1+5]PBEIC1 
@LB:Cf1»SIRMSRLX 
»END 


Defined Variables, 
I%Z(1500) 
TRING$ (2% 565%) 
STRINGS (6% 532%) 
STRING$(13% 532%) 


LB: Ci+sSJHLLBP2-LB:0€1s51]FDV/LB 


TRING$ (2554 +324) 

VARTABLE DESCRIPTION 

C$ Choice specified by the user 

Sh FDY status 

Th Terminator code 

Fig The initial form name of the series 
F2% The outPut file name 

Pos The current form name 


Initialize Form Driver and 


WTQTO( 768% 954194) 
FINIT(CI4() 415004) 
FLCOHAN(6%)° \ GOSUB 2000 
FLOPEN("LB:C1+2]DEMLIB") \ 


open library, 


GOSUB 2000 


Show the menu form for operator to select the data 


collection series, 


named data, 


POLRSHC" FIRST) 
FGET(C#%+T%s+"CHOICE" ) 
FNDATA(CS>F1$%) 
FPUTL("ITllegal choice") 


Get the first form name from 


\ GOSUB 2000 
\ GOSUB 2000 
\ CALL FSTAT(5S2Z) 


\ IF 5%20% GO TO 770 


\ GO TO 710 
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740 REM 

730 REM If form name is ".EXIT.«"+ terminal operator is done, 
760 REM 

770 IF Fi#=",EXKIT.«" GO TO 1290 

780 REM 

790 REM Get the output file name from named data and open it. 
BOO REM 

810 CALL FNDATACTRMS$( CH) +"F" +F28) 

B20 OPEN F2% FOR OUTPUT AS FILE#1%4;FILESIZE 10% 

830 REM 

B40 REM THIS IS THE DATA COLLECTION LOOP 

850 REM 

860 REM Set current form = first form in series, 

870 REM 

880 F3S=F1is 

B90 REM 

900 REM Show the form, 

910 REM 

920 CALL FCLRSH(F3%) \ GOSUB 2000 

930 REM 

940 REM Get data for current form and outPut it. 

930 REM 

960 CALL FGETAL(A#) \ GOSUB 2000 

970 PRINT#1i4+TRMS(AS) 

980 REM 

990 REM Get name of next form. If founds loop for more data. 
1000 REM | 
1010 CALL FNDATAC"NXTFRM" +F3$) 

1020 IF F3¢<2>".,NONE." GO TO 920 

1030 REM 

1040 REM End of the form series. Show LAST to determine if 
1050 REM we’re done or not, 

1060 REM 

1070 CALL FCLRSH("LAST") \ GOSUB 2000 

1080 CALL FGET(C$+T%+»"CHOICE") \ GOSUB 2000 


1090 REM 

1100 REM If response = "“1i"+ rePpeat data collection loop. 
1110 REM 

1120 IF C#="1" GO TO 880 

1130 REM 


1140 REM Gét named data corresponding to responses 

1150 REM Get field again if illegal response: 

1160 REM Close output file for valid resronse other than 1. 
1170 REM 

1180 CALL FNDATA(C#;+F3¢) \ CALL FSTAT(S%) \ IF S%20% GO TO 1200 
1190 CALL FPUTL("Illegal choice") \ GO TO 1080 | 
1200 CLOSE#1% 

1210 REM 


1270 REM If named data is ".EXIT.~"+ terminal orPperator is dones+ else 


1230 REM display menu form agains 
1240 REM 
1750 IF F3é<>",EXIT." GO 10 700 
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1260 REM Close form library and exit 

1270 REM 

1280 REM 

1290 CALL FLCLOS \ GO TO 9999 

2000 REM 

2010 REM Output message and exit if I/O error returned from 
2020 REM Form Driver, This is the only error expected in a 
2030 REM debugged application. 

Z040 REM 

20350 CALL FSTAT(S%) 

2060 IF S$420% THEN RETURN 

2070 CALL FPUTL("Fatal I/0 Error") \ STOP 

9999 END | 


9.2 Tool Kit COBOL-81 


When calling PRO/FMS-11 from a COBOL-81 program, you can pass variables 
either by descriptor or by reference. 


L] Use the By Reference method for numeric data type parameters, such 
as the starting line parameter of FCLRSH or the LUNs for the FLCHAN 
call. 


L] Use the By Descriptor method for character type parameters. 


The method used will determine which interface you specifiy in your .ODL file. 
See the section of this manual on editing the descriptor file for details. The fol- 
lowing sample programs demonstrate each method. 


9.2.1 Passing Variables By Reference—This COBOL program passes all 
variables by reference to the Form Driver. It uses the interface HLLCBL. 


wae 


CBLDEM.CBL 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION,» MAYNARD, MASS. 


MODULE: ' CBLDEM 

VERSION: YO1,00 

AUTHOR: MEGAN 

DATE: 1-APRIL-79 

MODIFIED: DUCHARME -- To run on the Professional 
DATE: 3-MARCH-83 


COBOL demonstration Program for FMS illustrating a 


simple form-drivens data entry application. 


a a ee ee a ee i 2, i i 2 2 
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The following is a brief description on comPiling and 
building CBLDEM. 


The command to compile the Program iss: 
MCR PROC81i CBLDEM,CBLDEM=CBLDEM 


Below 15 an example of a TKB command file to build 


this demonstration Program, 


CBLDEM.CMD 


2m 


28 


4 TKB command file to build CBLDEM 


3TKB COMMAND FILE CREATED ON O1-MAR-83 AT 14:16:02 
CBLDEM/CP/-FP+CBLDEM/-SP=CBLDEM/MP 

TASK=CBLDEM 

CLSTR=CBILIBs»POSRES s+RMSRES:RO 


EXTSCT=MN#BUF:0 ;SINGLE CHOICE MENU 
EXTSCT=DM$BUF:0 3DYNAMIC SINGLE CHOICE 
EXTSCT=HL#BUF:3410 ;HELP 
EXTSCT=MS#BUF:3100 ;MESSAGE 
EXTSCT=MM$BUF:0 SMUTLI-CHOICE MENU 
EXTSCT=FL#BUF:0 SMULTI-CHOICE MENU 
GBLDEF=MN$LUN: 22 ;MENU 
GBLDEF=HL$LUN: 20 ;HELP 
GBLDEF=MS$LUN: 71 ;MESSAGE 
GBLDEF=TT$LUN:15 STERMINAL I/0 
GBLDEF=WC$LUN:23 

GBLDEF=TT#EFN: 1 51/0 EVENT FLAG 

: 

UNITS = 19 


ASG = T1:13:15:5 
ASG = SY:G:7:8:9:10:11:12 


i i i ee ee ee ee ee ee ee | 


// 
ee ene eee me eee ere eee mee ee eee ee eee een ee ewe oe et oe metre ee tt mee ee ee ee 
# 
% Below is an example ODL file to build the Demonstration Program 
: ) 
¥ IMERGED ODL FILE CREATED ON QO1-MAR-83 AT 14:16:02 
¥ @CBLDEM.SKL 
# SCOBJ$: .FCTR CBLDEM.OBJ 
% @LB:C1+11RMSRLX.ODL 
# *+NAME RMS$TR 
# RMSTR#@: .FCTR RMS#&TR-RMSALL 
# RMS: *+FCTR RMSROT 
# SCLIB$: .FCTR LB:Ci+11C81iLIB/LB 
% OBJRT$: .».FCTR SCOBJ$-FDV-SCLIBS-RMSS$ | 
# FDWs *FCTR LB: Ci+SIHLLCBL-LB:f1i;sS5]FDV,.0LB/LB 
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»ROOT OBJRTS>»RMSTRS 
» END 


a, 


IDENTIFICATION DIVISION, 
PROGRAM-ID. CBLDEM. 


TEST PROGRAM 


ee 2 


ENVIRONMENT DIVISION, 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL, 

SELECT QUTPUT-FILE ASSIGN TO "SY:", 
DATA DIVISION. 

FILE SECTION, 


% Create a sequential file for outPut of form data, 


FD OUTPUT-FILE 
LABEL RECORDS ARE STANDARD 
VALUE OF ID IS ANSWER2, 

O1 POOL PIC X(256). 


Data follows, 
a 


WORKING-STORAGE SECTION, 


% System form library. 

O01 DEMLIB PIC X(25) VALUE "#LB:Ci,»2Z]DEMLIB.FLB#", 
* Logical unit number for FMS library file. 

O1 LUN PIC 99 COMP VALUE 6. 

* ImPure are@a, 

O1 IMPURE PIC X(2000), 

% Size of impure area, 

O1 ISIZE PIC 9999 COMP VALUE 2000, 

o1 INUM PIC 999 COMP VALUE 768. 

O1 UN PIC 9 COMP VALUE 5% 


% 


Special work area, 


% ANSWERI -> The initial form name of the series, 
% ANSWERZ -> The output file name. 

% ANSWERS -> The current form name, 

% 

O1 ANSWERI. 


02 PART PIC X(8). 
OZRILUER PIC: M7). 
O01 ANSWERZ PIC X(13). 
O01 ANSWER3. 
O2 PART PIC X(6). 
O02 FILLER PIC X(7). 
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* Fieldf used to create a field name. 
% 
OL FIELDF. 


OZ DAT PIC &, 
O02 FILLER PIC K(3) WALUE "F Ug 
O1 FIELD PIC K(G). 
% Status 
# 
O1 STAT PIC 99 COMP. 
O1 STAT2 PIC 99 COMP. 


% 

% Error message on Program errors: 

% 

O1 ERR1. 
OZ PARTI PIC K(22) VALUE "FATAL I/0 ERROR: STAT="., 
O2 ERR-STAT PIC 22229- DISPLAY. 
O2 PART2 PIC K(8) VALUE "+ STATZ2=", 


O2 ERR-STAT2 PIC 22229- DISPLAY. 
O1 ILL-CHOICE PIC X(16) VALUE "#ILLEGAL CHOICE#", 
% 


% FORM DESCRIPTION STARTS HERE 
% 

% 

COPY "LB:f1+5]:DEMLIB.LIB". 

% 

% 

% 

# 


PROCEDURE DIVISION. 
MAIN-CONTROL SECTION. 


Pi. 
% Attach the terminal, 
CALL "WTQIO" USING INUM;: UNs UN, 
% Initialize and open the library. 
CALL "FINIT" USING IMPURE:s ISIZE. 
CALL "“FLCHAN" USING LUN. 
PERFORM STATUS-CHECK. 
CALL "“FLOPEN" USING DEMLIB. 
PERFORM STATUS-CHECK. 
* Display first forins 
PG. 


CALL "FCLRSH" USING FORM-FIRST. 

PERFORM STATUS-CHECK, 
Show the menu form for operator to select the data 
collection series. Get the first form name from 


named data. 
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CALL "FGET" USING 
D-FIRST-CHOICE+ STAT» N-FIRST-CHOICE. 
PERFORM STATUS-CHECK, 
MOVE D-FIRST-CHOICE TO FIELD, 
MOVE SPACES TO ANSWER1I. 
CALL "FNDATA" USING 
FIELD+ ANSWERI, 
CALL "FSTAT" USING STAT. 
IF STAT NOT ? O 
CALL "FPUTL" USING ILL-CHOICE 
PERFORM STATUS-CHECK 


GO TO P2, 
If form name is ",EXIT."» terminal operator 15 done, 
IF PART OF ANSWERI = "EXIT." GO TO LIB-CLOSE,. 


Get the output file name from named data and open it. 


MOVE D-FIRST-CHOICE TO DAT OF FIELDF. 
MOYE SPACES TO ANSWER2, 

CALL "FNDATA" USING 

DAT OF FIELDF:+s ANSWERZ. 

PERFORM STATUS-CHECK. 

OPEN OUTPUT OUTPUT-FILE. 


This is the data collection loop. 


MOVE ANSWER1] TO ANSWERS. 
Show the form. 


CALL "FCLRSH" USING ANSWERS, 
PERFORM STATUS-CHECK,. 


Get data for current form and outPut it. 


MOVE SPACES TO POOL. 

CALL "FGETAL" USING POOL. 
PERFORM STATUS-CHECK. 
WRITE POOL. 


Get name of next forms If founds loop for more data, 


MOVE "NXTFRM" TO FIELD. 

CALL "FNDATA" USING 

FIELD, ANSWERS. 

PERFORM STATUS-CHECK. 

IF PART OF ANSWERS NOT = ".NONE." GO TO P33, 
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# 
¥ End of the form series. Show last to determine if 
% we’re done or not. 
# 
CALL "FCLRSH" USING FORM-LAST. 
PERFORM STATUS-CHECK. 
PS. 
CALL "FGET" USING 
D-LAST-CHOICE:s STAT+s N-LAST-CHOICE. 
PERFORM STATUS-CHECK. 
MOVE D-LAST-CHOICE TO FIELD. 
If response = "1"»y repeat data collection loop. 
* : 
IF FIELD = "i" GO TO Pd, 
¥ 
¥ Get named data corresponding to response, 
% Get field again if illegal response, 
% Close outeput file for valid response other than 1, 
# 
CALL "FNDATA" USING FIELD; ANSWERS. 
CALL "FSTAT" USING STAT. 
IF STAT NOT ? O 
CALL "FPUTL" USING ILL-CHOICE 
PERFORM STATUS-CHECK 
GO TO PS. 
CLOSE QUTPUT-FILE,. 
x 
% If named data is ".+EXIT.«"+ terminal operator 
% is done+ else display menu form again, 
# 
IF PART OF ANSWERS NOT = ".EXIT." GO TO PG, 
# 
% Close form library and exit, 
¥ 
LIB-CLOSE. 
CALL "FLCLOS", 
PERFORM STATUS-CHECK. 
STOP RUN. 
# 
% Output message and exit if 1.0 error returned from 
% Form Driver. This is the only error expected in a 
% debugged application. 
# 


STATUS-CHECK SECTION. 
SCi. 
CALL "FSTAT" USING STAT+ STAT2. 
IF STAT > 0 GO TO SC2, 
MOVE STAT TO ERR-STAT. 
MOVE STAT2 TO ERR-STAT2. 
DISPLAY ERRi AT LINE 1 AT COLUMN i+ ERASE TO END OF SCREEN. 


SC2, 
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DISPLAY "Press RESUME to continue." AT LINE 3 AT COLUMN 1, 
CALL "WTRES", 
STOP RUN 


EXIT, 


9.2.2 Passing Variables By Descriptor—This COBOL program passes data 
variables by descriptor to the Form Driver. (Numeric variables are passed by 
reference.) It uses the interface HLLCBL. 


eo Oe kk kK ok kk kk kk kkk kk kk kkk Rk kk 


CBLDESDEM.CBL 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD» MASS. 


MODULE: CBLDESDEM 

VERSION: YO1.00 

AUTHOR: MEGAN 

DATE: 1-APRIL-79 

MODIFIED: DUCHARME -- To run on the Professional 
DATE: 3-MARCH-83 


COBOL demonstration Program for FMS illustrating a 
simPle form-driven»s data entry application. This Program 
demonstrates the Call By Descriptor method to call the 
Form Driver. 


The following is a brief description on compiling and 
building CBLDESDEM. 


The command to compile the Program iss 
MCR PROC81 CBLDESDEM»CBLDESDEM=CBLDESDEM 


Below is an example of a TKB command file to build 
this demonstration Program. 


5 

3 CBLDESDEM.CMD 
3 
3 TKB command file to build CBLDESDEM 

; 

3TKB COMMAND FILE CREATED ON O1-MAR-83 AT 14:16:02 
CBLDESDEM/CP/-FP +CBLDESDEM/ -SP=CBLDESDEM/MP 
TASK=CBLDEM 

CLSTR=C81LIB;+POSRES »RMSRES:RO 
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% 5 

% EXTSCT=MNS$BUF :0 SINGLE CHOICE MENU 

* EXTSCT=DM#BUF:0 IDYNAMIC SINGLE CHOICE 
# EXTSCT=HLS$BUF: 3410 sHELP 

* EXTSCT=MS$BUF: 3100 iMESSAGE 

% EXTSCT=MM$BUF :0 jMUTLI-CHOICE MENU 

% EXTSCT=FL$BUF:0 IMULTI-CHOICE MENU 

% GBLDEF=MN$LUN: 22 iMENU 

% GBLDEF=HL$LUN: 20 yHELP 

% GBLDEF=MS$LUN: 21 iMESSAGE 

# GBLDEF=TT#LUN:15 sjTERMINAL I/O 

# GBLDEF=WC$LUN: 23 

% GBLDEF=TT#EFN: 1 31/0 EVENT FLAG 

% 5 

% UNITS = 19 

% ASG = T1:13:15:5 

% ASG = S¥:G:7:8:9:i0siis:i2 

* /f 

% 

He ee ee ee Re He ee mer em mE tee 
# 

% Below is an example ODL file to build the Demonstration Program 
% 

# sMERGED ODL FILE CREATED ON O1-MAR-83 AT 14:16:02 
% @CBLDESDEM. SKL 

# SCOBJ$: .FCTR CBLDESDEM.OBJ 

% @LB:Ci+slJIRMSRLX.ODBL 

# »>NAME RMSSTR 

# RMSTR#: .FCTR RMS#TR-RMSALL 

% RMS¢: *FCTR RMSROT 

% SCLIB: .FCTR LB:C1,11]/C81LIB/LB 

% OBJRT#: .FCTR SCOBJ$-FDV-SCLIBS-RMS$ 

% FOV: *FCTR LB:01+S5]HLLCOB-LB:C£1;51]FDV.0LB/LB 
*ROOT OBJRTS +RMSTRS 

% «END 

H 

* 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CBLDEM. 


TEST PROGRAM 


* oe ke Oe KO 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT OUTPUT-FILE ASSIGN TO "“SYs". 
DATA DIVISION. 

FILE SECTION. 
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Create a sequential file for output of form data, 


FD OUTPUT-FILE 
LABEL RECORDS ARE STANDARD 
VALUE OF ID IS ANSWER2, 

Ol POOL PIC K(256), 


Data follows, 


WORKING-STORAGE SECTION. 


% System form library. 

01 DEMLIB PIC X(25) VALUE "LB:C1+s2]DEMLIB.FLB". 
% Logical unit number for FMS library file, 

O1 LUN PIC 99 COMP VALUE 6G. 

* Impure area, 

O1 IMPURE PIC X(2000), 

# Size of impure area, 

O1 ISIZE PIC 9999 COMP VALUE 2000, 

O1 INUM PIC 999 COMP VALUE 768, 

Oi UN PIC 9 COMP VALUE 5S. 

# 

% Special work area, 

% ANSWERI -> The initial form name of the series. 
% ANSWERZ -> The output file name, 

* ANSWERS -> The current form name. 

# 

O1 ANSWERI. 


O2 PART PIC XK(6). 

OZ FILLER PIC X(7), 
O1 ANSWERZ PIC. K(13). 
O1 ANSWERS, 

O2 PART PIC X(6G). 

O2 FILLER PIC X(7). 
% 


% Fieldf used to create a field name, 
% 
O1 FIELDF. 
OZ DAT PIC X, 
OZ FILLER PIC X(5) VALUE "F ge 
O1 FIELD PIC XK(6), 
%  §tatus 
% 


O1 STAT PIC 99 COMP. 

O1 STATZ PIC 39 COMP. 

x 

* Error message on Program errors. 

+ 

O1 ERR1. 
OZ PARTI PIC X(23) VALUE "FATAL I/0 ERROR» STAT=". 
O2 ERR-STAT PIC 2Z229- DISPLAY. 
OZ PARTZ PIC X(8) VALUE "+ STATZ=". 


23 
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OZ ERR-STAT2 PIC Z22229- DISPLAY. 
Q1 ILL-CHOICE PIC X(16) VALUE "ILLEGAL CHOICE", 


FORM DESCRIPTION STARTS HERE 


* Ke mw me oe 


COPY "LB:f1+sS]DEMLIB.LIB",. 
% 

% 

# 

% 

‘PROCEDURE DIVISION. 
MAIN-CONTROL SECTION. 


Pi. 
% Attach the terminal. 
CALL "WTQIO" USING INUMs UNs UN. 
% Initialize and open the library. 
CALL "FINIT" USING BY DESCRIPTOR IMPURE, 
BY REFERENCE ISIZE. 
CALL "FLCHAN" USING BY REFERENCE LUN. 
PERFORM STATUS-CHECK,. 
CALL "FLOPEN" USING BY DESCRIPTOR DEMLIB. 
PERFORM STATUS-CHECK. 
* Display first form. 
P6. 
CALL “FCLRSH" USING BY DESCRIPTOR FORM-FIRST. 
PERFORM STATUS-CHECK. 
Show the menu form for operator to select the data 
collection series. Get the first form name from 
named data. 
P2, 


CALL "FGET" USING BY DESCRIPTOR D-FIRST-CHOICE:s 
BY REFERENCE STAT + 
BY DESCRIPTOR N-FIRST-CHOICE. 
PERFORM STATUS-CHECK. 
MOVE D-FIRST-CHOICE TO FIELD. 
MOVE SPACES TO ANSWER]. 
CALL "FNDATA" USING BY DESCRIPTOR FIELD:+ ANSWERI. 
CALL "FSTAT" USING BY REFERENCE STAT. 


IF STAT NOT *? O 
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE 


PERFORM STATUS-CHECK 
GO TO P2,. 
If form name is ".EXIT.«"» terminal operator is done. 


IF PART OF ANSWERI = ".EXIT." GO TO LIB-CLOSE. 


Get the output file name from named data and open it. 


i i 


PS. 


mee 
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MOVE D-FIRST-CHOICE TO DAT OF FIELDF. 


MOVE SPACES TO ANSWERZ2. 


CALL "FNDATA" USING BY DESCRIPTOR 
FIELDF» ANSWER2. 

PERFORM STATUS-CHECK. 

OPEN OUTPUT OUTPUT-FILE. 


This is the data collection loop, 


MOVE ANSWER1 TO ANSWERS. 
Show the forms 


CALL "FCLRSH" USING BY DESCRIPTOR ANSWERS. 
PERFORM STATUS-CHECK. 


Get data for current form and output it, 


MOVE SPACES TO POOL. 

CALL "FGETAL" USING BY DESCRIPTOR POOL. 
PERFORM STATUS-CHECK. 

WRITE POOL. | 


Get name of next form, If founds loop for more data, 


MOVE "NXTFRM" TO FIELD, 

CALL "FNDATA" USING BY DESCRIPTOR FIELD» ANSWER3. 
PERFORM STATUS-CHECK. 

IF PART OF ANSWER3 NOT = ",NONE." GO TO P32. 


End of the form series, Show last to determine if 
we’re done or not. 


CALL "FCLRSH" USING BY DESCRIPTOR FORM-LAST. 
PERFORM STATUS-CHECK., 


CALL "FGET" USING BY DESCRIPTOR D-LAST-CHOICE: 
BY REFERENCE STAT» 
BY DESCRIPTOR N-LAST-CHOICE. 
PERFORM STATUS-CHECK,. 
MOVE D-LAST-CHOICE TO FIELD. 


If response = "i"» repeat data collection loop. 
IF FIELD = "i" GO TO Pd, 
Get named data corresPonding to response, 


Get field again if illegal response, 
Close output file for valid response other than 1, 
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CALL "FNDATA" USING BY DESCRIPTOR FIELD; ANSWERS. 
CALL "FSTAT" USING BY REFERENCE STAT, 
IF STAT NOT ? QO 
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE 
PERFORM STATUS-CHECK 
GO TO PS. 
CLOSE OUTPUT-FILE. 


% 
oa If named data is ".EXIT.«"+ terminal operator 
% is donesy else display menu form agyain-e 
& 
IF PART OF ANSWERS NOT = ".EXIT." GO TO P6. 
# 
*% Close form library and exit. 
# 
LIB-CLOSE. 
CALL "FLCLOS", 
PERFORM STATUS-CHECK. 
STOP RUN. 
# 
% OutPut message and exit if I.O0 error returned from 
% Form Driver. This is the only error expected in a 
¥ debugged apPlication. 
# 


STATUS-CHECK SECTION. 


SCl., 
CALL "FSTAT" USING BY REFERENCE STAT: STAT2. 
IF STAT * 0 GO TO SC2. 
MOVE STAT TO ERR-STAT. 
MOVE STAT2 TO ERR-STAT2. | 
DISPLAY ERR1 AT LINE 1 AT COLUMN 1» ERASE TO END OF SCREEN. 
DISPLAY "Press RESUME to continue." AT LINE 3 AT COLUMN 1. 
CALL "WTRES", 
STOP RUN. 

oC2. 
EXIT. 


9.3. Tool Kit FORTRAN-77 


FORDEM.FTN 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION:s MAYNARD; MASS. 


MODULE: FORDEM 


VERSION: YVO1.00 


Ooorwnrindwnanrindinononon 


C 
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AUTHOR: Megan 

DATE: 1-APRIL-79 

MODIFIED Ducharme 

DATE: 2-MARCH-83 To run on the Professional 


FORTRAN demonstration Program for FMS illustrating a 


SimPle form-drivens data entry application. 


Below 


Below 


is an example command file to build this demonstration Program 


SY:FORDEM/CP »SY¥Y:FORDEM/-SP=SY:FORDEM/MP 
; 

TASK = FORDEM 

5 

UNITS = 19 


q 

ASG=TI:5213:15 
ASG=S¥sile2:728:9:10r:l1si2 

j 

CLSTR=PROF77,>,POSRES »sRMSRES:RO 

5 

EXTSCT=MNSBUF:0 sSINGLE CHOICE MENU 
EXTSCT=DM$BUF:0 sDYNAMIC SINGLE CHOICE 
EXTSCT=HL#BUF: 3410 IHELP 
EXTSCT=MS#BUF : 3100 IMESSAGE 
EXTSCT=MM$BUF:0 sMUTLI-CHOICE MENU 
EXTSCT=FL$BUF:0 sMULTI-CHOICE MENU 
GBLDEF=MN$LUN: 22 s5MENU 
GBLDEF=HL$LUN:205HELP 
GBLDEF=MS¢$LUN: 21 sMESSAGE 
GBLDEF=TTS$LUN:15sTERMINAL 1/0 
GBLDEF=WCéLUN: 23 

GBLDEF=TTSEFN: 1 31/0 EVENT FLAG 
// 


is an example ODL file to build this demonstration Program 


»ROOT FORDEM-FOV-RMSROT-OTSROT-OTSALL 
FOV: »FCTR LB: CisSJHLLFOR-LB:C1sS]FDV/LB 
@LB:Ci+»S]PROF77 
@LB:C1+s5]RMSRLXH 

»END 


IMPLICIT INTEGER (A-2) 
DIMENSION IMPURE (1000) 
BYTE RESP(3)» FORM(7),» FORM1(7)+ DNAM(3)+ FILE(30)+ DATA(255) 


C Initialize impure area for Form Driver and open form library. 
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C 
CALL WTQOIO (768:+5+5) !ATTACH THE TERMINAL 
CALL FINIT (IMPURE: 1000) | 
CHAN=2 
CALL FLCOHAN( CHAN) 
CALL ERROR (FLOPEN (‘’LB:C1+21]DEMLIB‘’)) 

C 

C Display menu form. 

C 

10 CALL ERROR (FCLRSH (’FIRST ‘)) 
C 


C Get input from terminal. Get named data (name of first form in 
C series or .-EXIT.) corresPonding to user’s choice, If named data 


C doesn’t exists input invalid, 


C 
20 CALL ERROR (FGET (RESP+ TERM: ‘CHOICE’)) 
IF (FNDATA (RESPs FORM1) .GT. 0) GOTO 30 
CALL FPUTL (’ITllegal choice’) 
GOTO 20 
C 


C Check for exit. If choice not exits get name of corresPonding 
C file and open it for output. 
“EC 
30 IF (SCOMP (FORM1+ ’.EXIT.’) «NE. ©) GOTO 40 
CALL FLCLOS ! CLOSE FORM LIBRARY 
STOP 
40 CALL CONCAT (RESP+ ‘F’s DNAM) 
CALL FNDATA (DNAM: FILE) 
OPEN (NAME=FILE+UNIT=1;+STATUS=’NEW’ »sINITIALSIZE=10) 
C 
C Display form and collect datas write data to output file, 
C 
a 6) CALL SCOPY (FORM1:+; FORM; 6) 
60 CALL ERROR (FCLRSH (FORM) ) 
CALL ERROR (FGETAL (DATA)) 
WRITE (1+70) (DATACI)+ IT=i+LENGTH(DATA) ) 


70 FORMAT (78A1) !DATA IS BROKEN INTO SEGMENTS FOR OUTPUT 
G 
C Get name of next form in series. Check for none. 
C 
CALL FNDATA (‘/NATFRM’ + FORM) 
IF (SCOMP (FORM; ’.NONE.’) «NE. ©) GOTO 60 
C 


C If last form in series dones display a menu form, 
C Get input from terminal. Get named data corresponding 
C to user’s choice. If no named datas invalid input. 


CALL ERROR (FCLRSH (’LAST‘’)) 
BO CALL ERROR (FGET (RESP:+ TERM: ‘’CHOICE’)) 
IF (FNDATA (RESP: FORM) «GT- &) GOTO 90 
CALL FPUTL (’Illegal choice’) 
GOTO 80o 
C 
C If choice = 1+ rerPeat series, 
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C Else close output files check for exit or go back to 
C initial menu form, 
C 
90 IF (RESP(1) .EQ, ‘1’) GOTO 50 
CLOSE (UNIT=1) 
IF (SCOMP(FORM, ‘,.EXIT.’) .NE. 0) GOTO 10 
CALL FLCLOS ! CLOSE FORM LIBRARY 
STOP 
END 


SUBROUTINE ERROR (RESULT) 
Output message and exit if I/O error returned from 


Form Driver. This is the only error expected in a 
debugged application, 


ao°onina a 


IMPLICIT INTEGER (A-2) 


IF (RESULT .GT. 0) RETURN 
CALL FPUTL (’Fatal I/O Error’) 
STOP 

END 


SUBROUTINE SCOPY (SRC,> DST,» LEN) 
Copy a string of a sPecified length 
SRC = source byte string 


DST = destination byte string to be ended by a zero 
LEN = number of characters to coPy 


oOaoninga 


BYTE SRC(1i)+ DST(1) 
INTEGER -LEN 


C 
C Copy source to destination for length 
C 
DO 10 I = 1» LEN 
DST(I) = SRCC(T) 
10 CONTINUE 
Cc 
C End destination string with zero brte 
C 
DST(LEN+1) = 9 
RETURN 
END 
INTEGER FUNCTION SCOMP (SRC1,> SRC2) 
Cc 
C Compare two strings 
C 
C SRC1 = first comparand byte string ended by a zero 
C SRC2 = second comparand byte string ended by a zero 
C , 
C Value of function is zero for equals nonzero for not equal 
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C Compare returns failure if string lengths are not the same 
C 
BYTE SRC1i(1i)+ SRC2ZC(1) 
C 
C Compare until either string ends in zero byte or does not match 
E 


I = ] 
100 IF (SRCiC(CI) .EQ. O .AND. SRC2(I) «EQ. 0) GOTO 29 
IF (SRCi(I) .NE. SRC2(1I)) GOTO 30 
I = [+1 
GOTO 10 
C 
C Return success 
C 
20 SCOMP = QO 
RETURN 
C 
C Return failure 
C 
30 SCOMP = 1 
RETURN 
C 
END 
SUBROUTINE CONCAT (SRCi;+ SRC2; DST) 
C 
C Concatenate two string into a third 
C 
C SRC1 = first source string ended by a zero 
C SRC2 = second source string ended by a zero 
C DST = destination string ended by a zero 
C 
BYTE SRC1i(1)+ SRC2(1)+» DST(1) 
C 
C Copy the first string into destination 
C 
J = 1 
I = jl 
10 IF (SRC1i(I) .E9. 9) GOTO 20 
DST(J) = SRCICT) 
J = J + 1 
I = [ + i 
GOTO 10 
C 
C Now for second string to destination 
C 
20 I = 1 
30 DST(J) = SRC2ZC(T) 
IF (SRC2(1I) .EQ. GO) GOTO 40 
J=J+t+il | 
I=I+1 
GOTO 30 
C 


C Return 
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C 
40 RETURN 
END 

| SUBROUTINE INSERT (SRC+ DST+ POS) 
L 
C Replace a Portion of one string with another 
c 
C SRC = source stringy ended by a zero 
C DST = destination string ended by a zero 
C POS = Position in destination for source string contents 
G 


BYTE SRC(1)+» DST(1) 
INTEGER PQS 


C Scan the destination string for its end 


C 
J = i 

10 IF (DST(J) «EQ. O) GOTO 20 
J =J +1 
GOTO 10 

C 


C Copy source into destination at Position given 
C 


20 I = 1 

30 IF (SRC(I) .E9. 0) GOTO 40 
DST(I+POS-1) = SRC(I) 
| ee a, ae | 
GOTO 30 

C 


C End destination string if source extends it and return 
C 
40 IF (I .GT. J) DST(J) = O 

RETURN 

END 


INTEGER FUNCTION INDEX (SRC» STR) 
Find Position of one string in another 


SRC = source string 
STR = target string 


Value of function is zero if not founds 


or Position of first character of STR in SRC if found 


oo ananan°inoinirinn 


BYTE SRC(1)» STR(1) 


C Look for STR in SRC until end of SRC 


C 
J = 0 

10 J= Jt il 
I = 9 


IF (SRC(J) .EQ. 0) GOTO 30 


31 
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C 
C If end of STR then success 
C If not match look at next position in SRC 


C 
20 IF (STR(I+1) .EQ. 0) GOTO 406 
IF (SRC(J+I) .NE. STR(I+1)) GOTO 10 
I= ] +41 
GOTO 20 
C 
C Return failure 
C 
30 INDEX = QO 
RETURN 
C 
C Return success» Position of string 
‘ 
40 INDEX = J 
| RETURN 
‘C 
END 
INTEGER FUNCTION LENGTH (STR) 
C 
C Return length of string ended by @ zero 
c 
C STR = string ended by a zero 
C 
C Value of the function is the length of the string without the zero 
C 


BYTE STR(1) 


C Scan for the zero byte 


C 
I = 1 
10 IF (STR(I) «EQ, 9) GOTO 20 
I = 1I+ii 
GOTO i9 
C 
C Return the length of the string 
C 
20 LENGTH = [I - 1 
“RETURN 


END 
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9.4 Tool Kit MACRO-11 


Copy the files MACDEM.MAC, MACDEM.CMD, and MACDEM.ODL from 
your host system to your Professional before you run this sample program. 


a 
3 


»>TITLE 


MACDEM.MAC 


MACDEM - FMS DEMONSTRATION SUBROUTINE 


COPYRIGHT (C) 1979 BY 


DIGITAL EQUIPMENT CORPORATION,» MAYNARD; MASS. 


MODULE: MACDEM 

VERSION: YO1.,00 

AUTHOR: MEGAN 

DATE: 19-NOVEMBER-79 

MODIFIED: DUCHARME -- §GDO001 

DATE: 14-APRIL-1983 -- TO RUN ON THE PROFESSIONAL 
Assembly and Compile instructions: (VAX) 


To assemble type: 


MCR PMA @ 


PMA> MACDEM>»MACDEM/-SP=LB:(1>SI]FMSMAC/ML>LB:01sSIRMSMAC/ML »sDEV: CUICIMACDEM 


To compile types 
MCR PROTKB 
PAB> @MACDEM.CMD 


Assembly and Compile instructions: (RSK) 


To assemble type: 


RUN $PMA_ @ED 


PMA> MACDEM »MACDEM/-SP=LB:(01+S5]FMSMAC/ML;>LB: C1 sSIRMSMAC/ML »DEV: TCUICIMACDEM 


To compile type: 
RUN SPROTKB 
PAB> @MACDEM.CMD 
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»ENABL 


*>MCALL 
»*>MCALL 
*MCALL 
*>MCALL 
*MCALL 
*MCALL 


$F DYDF 


LC 


$F DV »$FDVUDF 


QIOWSS sEXI TSS +DIRS sALUNS 


FABS$B+ RABSB;s POOLSB 
$STORE+s $COMPARE + 
$CONNECT+s #$DISCONNECT 


$PUT+ $CLOSE+ ORGS 


5s Equated symbols 


EXTNAM: 
NONNAM: 
FSTNAM: 
LSTNAM: 
CHCNAM: 
NXATNAM: 
LIBNAM: 
MSGI: 

MSG2: 


ISI2=1024, 


IN¢$CHN=1 
QOUSCHN=2 


*SBTTL 


*ASCII 


ASCII. 


»-ASCII 
*+ASCII 
*ASCII 
*ASCII 
“ASCI2Z 
*ASCI2 
*+ASCI2Z 
»EVEN 


Local data 


/+EXKIT./ 

/ NONE, / 

/FIRST / 

/LAST / 

/CHOICE/ 

/NXTFRM/ 
/SYSDISK:01+2]DEMNLIB/ 
/Tllegal choice/ 
*Fatal I/O error 


s Argument lists and data area 


ARGLST: 
REQLST: 


STAT: 


VARI: 


FRMNAM: 


SAVNAM: 
IMPURE: 


»BLKB 


»BLKB 


»BLKW 


»+BLKB 


»+BLKW 


»BLKW 


»WORD 
»BLKB 


FEASI2Z 
Fé¢RSI2 


$CREATE 


§ Allow lower case source text 


§ Identify Form 

§ RSX 1/0 related macros 
5 SGDOOL RMS related 

5 SGD001 

5 5SGDO01 

5 5SGD0O01 


macros 


Driver macro calls 


s Init the Form Driver definitions 


Size of FDY 


InPput channel 


imPure area 
number 


OutPut channel number 


Exit name 

No more forms in series 
ASCII 
ASCIT 
ASCII 
ASCII 
ASCIZ 


Message for 


form name 
form 
field 


named 


name 
name 


library name 


Message With embedded ‘/’ 


Form Driver argument list 


Form Driver required list 


Form Driver status block 
Variable G-byte block for 


Area for form names . 


Save area for a form name 


Form Driver impure area 


data field name 


illegal menu choice 


general 


(Form Library) 
(Output File) 


use 


5 I/O section 


FABADD: 


RABADD: 


RMS$LUN: 


i++ 


i FUNCTIONAL DESCRIPTION: 


DEMO: 


1%: 


»EVEN 


FABSB 
Fé$DEQ 
FSALQ 
FSFOP 
FSFAC 
FABSE 


»>EVEN 


RABSB 
RSFAB 
RSRAC 
RABSE 


»EVEN 
POOL$B 
P$BDB 
P$FAB 
P$RAB 
P$BUF 
POOLSE 


»EVEN 


ALUNS 
»EVEN 
ORGS 
»SBTTL 


This is the MACRO demonstration 


illustrating a simple form-driveny, 


2 


Z 


FBSSUP 
FBSPUT 


FABADD 
RBSSEQ 


oe pee fi 


OUSCHN 


SEQ ,<CRE»PUT> 


MACDEM 


application. 


»PSECT 


DIRS 
QTOWSS 
BCC 
CALL 


MOW 


MACDEM 


#RMSSLUN 
#IO.ATT»#T$LUN»#TSEFN 


1% 
LEAVE 


#ARGLST »RO 


FMS Demonstration 


S5GDO01 
S5GD001 


5 OGDOO] 


SGDOO1 
SGDO0O1 
SGDOO1 


SGDOO1 
SGDOO1 
S5GD001 


SGD001 
SGDOO)1 
SGDOO1 


5 SGDOO! 


SGDOO0i1 


5GD001 


S5GD001 
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Allocate RMS FAB 

Default file extension size 
Allocation size for the file 
Create new file 

File access operations 

End FAB declarations 


Allocate RMS RAB 
Connect to FAB address 


Record access is seaguential 


Begin Pool declarations 
Allow two buffer dese blocks 
Only one file will be open 
Need only one RAB 

I/O Buffer space 


Assign a Lun to the Disk 


Define RMS needed functions 


Subroutine 


Program for FMS 


data-entry 


SGDO0O1L Assign the Lun © to the Disk 
Attach the terminal 


If error then Just leave 


Done for now 


RO = addr of FDY arg 11st 
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MoV #REQLST +R1 5 Ri = addr of FDV required arg list 
MOV #STAT+FSSTS(R1) i Set addr of status block 
MOV #INSCHN +FSCHN(R1) 3 Set I/0 channel for FDVYV 
MOV # IMPURE »sFSIMP(R1) + Set addr of FDY impure area 
$FDV REQ=R1 i Init required arg list Pointer 
$F DY FNC=OPN +NAM=#LIBNAM § Orpen form library 
CALL ERREX y Exit with error 
FIRST: #FDV FNC=CSH +NAM=#FSTNAM 3 Show menu form 
CALL ERREX +s Exit if error 
10%: $FDYV FNC=GET +NAM=#CHCNAM 5 Get field ‘CHOICE’ 
CALL ERREX § Exit if error 
MOV #VUAR1+R1 § Ri = ptr to G-byte block 
CALL BLKNAM § Blank out VARI 
MOVB @FSVYAL(RO) sVARI ij VARI = menu choice 
$F DY FNC=DAT +NAM=#VARI1 5 Get named data with the name being 
3 the response to ‘CHOICE’ 
CMP STAT +#FS¢SUC is Was get successful? 
BEQ 20% 3 Continue if ok 
$F DY FNC=LST »+VAL=#MSG1 »sLEN=#-1 3; Else print message on line 24 
BR 10% | 5 Try again 
2O$: MOV FEVALCRO) +R1 5 Ri = addr of name from named data 
MOV #EXTNAM +R2 i R2 = addr of exit name 
CALL CMPNAM 5 Zero set on match 
BNE 3O$ 3 Continue on match 
JIMP LIBCLS 5 Else close form library and exit 
SOS: CALL MOYNAM ; Save named data 
MOV #FRMNAM +Ri 5 Ri = adr of source name 
MOY #SAUNAM +R2 3 Adr to save form name 
+REPT 3 
MOV (R1I)+,+¢°R2)+ 3 Save form name 
»ENDR 
MOVB #/F ,VARI+1 § Make 2nd letter = F 
MOY #UAR1+R1 § Ri = addr of G-byte block 
$F DY FNC=DAT +NAM=R1 ' Get named data at VARI 
MOV #FABADD +R3 SGD0O01 Move the FAB address to R4 
MOY #RABADD +R4 SGDOO1 Move the RAB address to R4 


SGDOO01 Move the addr of the file name 
SGDO0O1 Move the file name size 

SGDO01 Set the LUN in the FAB 

SGD001 Create the file 

SGDO01i Check RMS Status 


$STORE F#VAL(RO) sFNA+RS 
$STORE F#LEN(RO) sFNS+RS 
$STORE #OUS$CHN+LCH:+R3 
CREATE R3 

$COMPARE #5U$SUC +575 sRG 


2 AB | me at 2 8 28 <n 


BEQ 40% SGDOO0O1 Continue if status = 1 
CALL LEAVE ; SGDO01 Leave on I/O error 
A0QO$: $CONNECT R4 j SGDOOL Connect the RAB to the FAB 
$COMPARE #SU$SUC +5TS+R4 § SGDO001 Check RMS Status | 
BE) 60% § SGDO0O1 Continue if oK 
i 


CALL LEAVE SGDO01 Leave on I/O error 
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60$: $FDYV ARG=#ARGLST »FNC=CSH »NAM=#FRMNAM 
CALL ERREX ; Exit with error 
$FDY FNC=ALL ; Get all data from form 
CALL ERREX 5 Exit with error 
CALL SAVDAT 5 Put data in file 
$FDYV ARG=#ARGLST »FNC=DAT »NAM=#NXTNAM s Get name of next form 
CALL MOVUNAM + Put form name in FRMNAM 
MOY *#NONNAM;R1 § Ri = adr of ASCII .NONE, 
MOV #*FRMNAM »R2 + RZ = adr of returned name 
CALL CMPNAM 3) Zero set on match 
BEQ 70% ' Display last form on match 
BR 60% s Else get data from next form 
7O$: $FDYV FNC=CSH »sNAM=#LSTNAM 
CALL ERREX 5 Exit with error 
80s: $FDYV FNC=GET »NAM=8CHCNAM 
CALL ERREX ¢ Exit with error 
MOV FEVAL(RO) »R1 5 Ri = adr of answer 
CMPB (Ri) 8/1 "4 dbs 3t ea 
BNE 90% 
MOV #SAVNAM>R1 i Ri = source name 
MOY #FRMNAM »R2 5 R2 = dest name 
»>REPT 3 
MOY (R1)+,°0R2)+ 3 Move name 
»>ENDR 
BR 60% § Get more data 
904: MOVB (R1) »VARI 5 Move into variable for name 
MOVB #40 ,VARI+1 + Make 2nd char blank 
$FDY FNC=DAT »NAM=#VARI 3 Get named data 
TST STAT s Check status 
BGT CHKCLS ; If ok then close file 
$F DY FNC=LST » VAL=#MSG1,LEN=8-1 5 Print message on line 24 
BR 80% 3 Try again 


5 Close the output file 


CHKCLS:: 


MOV #FABADD>R3 3; SGDOOL Move the addr of the FAB to R3 
$DISCONNECT R4 +5 SGDOOL Disconnect the access stream 
$COMPARE #SUSSUC+STS+R4 5 SGDOO1 Check RMS Status 

BEQ 95% + SGDOO1 Branch if Status OK 


CALL LEAVE § SGDOO1 Else 1/0 error 
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934: $CLOSE R3 § SGDO01 Close output file 
MOV #EXTNAM:+Ri 3 Name of exit named data 
MOY #ARGLST +RO +5 Get ARGLST | 
MOV FEVAL CRO) +R2 5 Re = adr of named data 
CALL CMPNAM 5 £ero set if match 
BEQ LIBCLS 5 Exit on match 
JIMP FIRST +5 Back to start on no match 
LIBCLS: $FDYW FNC=CLS + Close form library 
BR EXT 1 And exit 


5 Routine to check for error return from Form Driver, 


5 Print message and exit on error, 


EXREA®  /CUP STAT +#FS$S5UC 5 Was call ok? 


BNE LEAVE 
RETURN 
LEAVE: #FDY ARG=#ARGLST 
$F DY FNC=LST +VYAL=#MSG2;LEN=#-1 5 Print message on line 24 


EXIT: EXITS 


5s Subroutine to store data in output file 


of 


SAYDAT: $STORE F#VAL(RO) +RBF+R4 § SGDOO1 Move the addr data to the RAB 
$STORE F#LEN(RO) +sRS2;+R4 § SGDO0O1 Move the len of data to RAB 
$COMPARE #0;RS2;R4 s 5SGD001 See if the data length is zero 
BEQ 10% § 5GD001 If not return 
$PUT R4 ~§ SGDOO1 Store away the string of data 
$COMPARE #SUSSUC+STS+R4 § SGDOO] Check the RMS Status 
BE ¢) 1O% 5 SGD001 Branch if esual 
CALL LEAVE § SGDO0O1] Leave on I[/0 error 

10%: RETURN 


Subroutine to move name and blank fill to 6 chars 
F¢VAL(RO) = Addr of source name 
FS¢LEN(RO) = Length of Source name 
FRMNAM = Addr of destination of name 


28 23 we BS 2a 


MOVNAMs 
MOY #FRMNAM +R1 3 Ri = addr to store form name 
CALL BLKNAM | - § Blank out name 
MOV. Fé¢VAL CRO) s:R1 5 Ri = addr of named data 
MOV #FRMNAM +R2 ' R2 = addr to store form name 
MOY F¢LEN(RO) sR3 3 Length of named data 

10%: MOVB (R1idt+t+(R2) + i Move named data to form name 
DEC R3 § Dec char ctr 
BNE 10% 


RETURN 
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+ Subroutine to blank 6 bytes 


BLKNAM: 


re EE 


Ri = Addr of name to blank 


MOY #69R2 i R2 = G 

MOVB #40, (R1)+ 5 Init name with blanks 
DEC R2 5 Dec byte ctr 

BNE D § 

RETURN 


5 Subroutine to compare two G-byte names 


CMPNAM: 


10%: 


Rl+sR2 Point to names 


R3 = O if match on return 

MOV #6>R3 § 6 char compare 

CMPB (Rijdt,(R2)+ s Compare 2? bytes 

BNE 20% 3 Leave loop if no match 
DEC R3 1 Dec char ctr 

BNE 10% 

RETURN 

»>END DEMO 


9.5 Tool Kit PASCAL 


PASCAL is not recommended for use with PRO/FMS-11. However, you can use 
PASCAL to access PRO/FMS-11, if you follow these restrictions: 


LJ 


Source code. PRO/FMS-11 calls for PASCAL are in the Tool Kit file 
FMS.PAS. After the Tool Kit is installed, you can find this file in directory 
LB:[1,5] on your host system. Use the %INCLUDE directive to include 
the file in your PASCAL source code: 


{ Include PRO/FMS Procedures } 


“Include ‘LB:C1s51]FMS.PAS ’ 


Calling sequence. FMS.PAS consists of SEQ11 procedures, which 
pass everything by reference. To determine the appropriate calling 
sequences for your application, refer to FMS.PAS and Chapter 3 of the 
Tool Kit PASCAL User’s Guide. 


Note: PASCAL form and field names must be padded for six spaces. Other- 
wise the form or field cannot be accessed by the Form Driver. 
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[] Parameters. There are no optional paramaters for PASCAL calls to 
PRO/FMS-11. All paramaters must be included. For example, in 
FMS.PAS, FCLRSH is declared as a SEQ11 procedure with two param- 
eters. If you want to use the FCLRSH cail, but you do not want to specify 
a new value for the starting line, pass 0 as the first parameter. The form 
will display at the starting line specified when the form was designed. 


L] Indexes. When using an FMS.PAS routine that allows indexes, you 
must specify an index for the variable. If no index was assigned when 
the form was created, assign it an index of 1. For example: 


index := 13 
field := ‘CHOICE’ 
FGET (responses terminators fields index) 5 


[] Variables. PASCAL can pass only variables when calling routines 
declared in FMS.PAS. For example, the following source statement 
would fail: 


FCLRSH(’‘FIRST //50)3 


_ The correct calling sequence for FCLRSH go like this: 


VAR Form—Name : Packed Array [1..6] Of Chars 
Starting_Line : Integers 

{ Main Program } 

Form Name = ‘FIRST 75 

Starting Line #:= 135 

FCLRSH(Form_Name »Starting_Line) 3 


lf you want to pass constants as parameters, edit FMS.PAS and assign 
the appropriate formal parameters the READONLY attribute. For exam- 
ple, if you edited FMS.PAS so that both FCLRSH parameters were 
READONLY, you could use the call: 


FCLRSH( ‘FIRST’ +1) 3 
See Chapter 3 of the PASCAL User’s Guide for details. 
[] Library file specification. You must terminate a library file specification 


with a NUL character. Without it, PRO/FMS-11 will not be able to 
access the library file. For example, this is a correct PASCAL library file 


specification: 

VAR File_Spec : Packed Array [1..15] Of Chars 
{ Main Program } 

File_Spec := ‘LB:f1+2]DEMLIB’(0)5 


FLOPEN(File_Spec) 5 
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[|] FPUTL. You must terminate data sent to the FPUTL call with a NUL 
character. Without it, random data may be displayed on the screen. For 
example, this PASCAL sequence would successfully pass data to 
FPUTL: 


VAR Message Packed Array [1..16] Of Chars 
5 Main Program } 

Begin 

Message := ‘Example message’(0Q) 5 
FPUTL(Messadge) 3 

End. 


|mpure area and data string restrictions. Using PASCAL with FMS.PAS, 
you can define an impure area as large as 1500 bytes and pass a data 
string of up to 1500 characters. If you need larger values, increase the 
variable MAX_FMS_PAR_LEN in FMS.PAS. 


FLCHAN. Be sure to assign any LUN used in an FLCHAN call to 
LB: in your command (.CMD) file. The files will be put in the appli- 
cation directory [ZZAPnnnnnj. 


The following is a sample PRO/FMS-11 program in PASCAL, using FMS.PAS. 


PROGRAM PASDEM (INPUT OUTPUT) 3 
{ PASDEM.PAS 
Copyright (C) 1983 By 


Digital Esuipment Corrporation,s Maynard: Mass. 


Modules 
Version 
Author: S. Ducharme 
‘Dates 2/-Apr-1983 
PASCAL Demonstration Program for PRO/FMS illustratin: 
simPle Form-Drivens 


PASDEM 
VO1,00 


data entry application, 
Below 15 an examePle command and odl file to build 
this demonstration Program, 

3PASDEM.CMD 
SY:PASDEM/CP/-FP+PASDEM/MA/-SP=SY:PASDEM/MP 
CLSTR=PASRES »>POSRES »RMSRES:RO 


TASK=PASDEM 


UNITS = 20 

ASG = T1:5:13:15 
ASG = S¥:6:7:8:9:10:11:12 
EXTSCT = $$HEAP:10000 
EXTSCT = MNSBUF:0 
EXTSCT = HL$BUF:3410 
GBLDEF = MS$LUN:21 
GBLDEF = WC$LUN:23 
GBLDEF = HL$LUN:20 
GBLDEF = MN$LUN:22 
GBLDEF = TT$LUN:15 
GBLDEF = TT$EFN:1 

// 


Example ODL file: 
sPASDEM.ODL 


»*ROOT 


USER - PASCAL 
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ieee 


VAR 


PROCEDURE WTRESs 


{ 


PROCEDURE WTQIO(VAR 


USER: 


PASCAL: 
FDYW: 
@LB:C1 >; 


»FCTR SY¥:PASDEM 
»FCTR 
»FCTR 

2 IRMSRLA 
»END 


Include PRO/FMS Procedures 


Zinelud 


Declare 


Impure = PACKED ARRAY Ci..1000] Of Integers 

Forms = PACKED ARRAY [1..6] Of Chars 

File_Srec = PACKED ARRAY (Ci..13] Of Chars 

Buffer = PACKED ARRAY [1..2251] Of Char} 

Outline = PACKED ARRAY ([1..41] Of Chars 

Named_Data = PACKED ARRAY [1..66] Of Chars 

Q1TO0_Function» { Qio function code 

TT_LUN + { Terminal lun 

TT_EFN + { I/O event flag 

Index + { FMS field index 

Length +s { Length of data 

Channel + { FMS Library channel 
Terminators { Form terminator 

Starting Line» { Starting line for forms 
Status_l+s Status 2s { Status values of FMS calls 
ImPure_Size: Integers { FMS Impure area 
ImPure_Areas Impure § { Size of FMS Impure area 
Library: File_Specs { Forms library 

Field» { FMS field name 

Response» { User’s response 
Next—Forms { Next form to display 
Current—Form: Forms 3 { Current form to display 
Message: Out-Lines { Message for FPUTL call 
All_Data: Buffers { Storage for all data in a form 
Name Datas | Named _Datas { Storage for named data 
More_Datas Booleans { Flag for more data 
QOut—File: Texts { File variable for outfile 


e “LB:C1sS51]FMS.PAS’ 


tyPes and variables 


LB:CisSJPASLIB/LB-FDV-RMSROT 
LB:Ci+sSJHLLFOR-LB:01;51]FDV,.0LB/LB 


H#He*%* Procedure to wait for the RESUME Key *¥#*### 


This Procedure 


be opened, 


library, 


is called 


This Procedure calls the 


SEQ115 


routine WTRES 


in the event that the forms library 
in the P/OS callable 


HH#H##*% Procedure to attach the terminal *#**¥**# 


This Procedure 


needs the 
SYSLIB. 


VAR TT_EFN: 


terminal attached, 


QIO_Functions: 


WAR TT_LUN: Integer; 


Integer 


)} SEQI13 


is called to attach the terminal. 
The FORTRAN routine WTQOIO 


Integers 


{Function code for QIO } 
{I/O Channel J 
{I/O Channel } 


is called 


Can 


The Form Driver 


in 


Oe 


not 


Bs 
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{ H¥¥H#** Procedure to move data in one variable to another *¥*¥¥*# 


This Procedure is called to move Gharacter data from one variable 
to another vaiable, This is useful if the two variables are of differing 
lengths. Three Paramaters are Passed. The two variables and the number 


of characters that are to be copied from the first variable to the second 
Variable, } 
PROCEDURE MOVE (VAR Packed ArrayCLBi..UPI 
VAR Packed Arrar(CLB2.,UP2 : 
VAR Length : 


5 


Vari: Integer] Of Chars 


War: Integer] Of Char3 


Integer 


VAR 
I : Integers 
Begin 
ee 
While I <= 
Begin 
Var2CIi] := 
I I + il 
End 


Length Do 


Varlfilids 


End 5 
{ End of Procedure MOVE } 
{ HHHHHHHHHEH Main Pros ran HKHKHEHHHES } 
Begin 
{ HH**e* Innitilize varaibles ***#% } 
Index := 0% 
Channel := 73 

2:= 100035 
“LBsCis2]DEMLIB‘’(0O) 5 


7683 


ImPure_Size 


i 


Library 3: 
QIO_Function := 


TT_LUN := 


TT_EFN 


34 


e= 53 


Starting Line := 
Current Form := ” ‘3 

{ H*X#*##% Initilize FMS Impure Area and 
WTOTO(QOTO_Function+sTT_LUN»TT_EFN) 5 
FINIT(Impure_ArearImpure Size »Status_?) 5 
FLCHAN(Channel) 3 
FLOPEN(Library)s 
Writeln(CHR(27)5’C2J/)5 


Open 


Library 


HHEEE } 

{Attach the terminal 
{Initilize FMS Impure Area 
{Set the library 
{Oren 


{Clear the screen 


channel 


demonstration library 


wo 


{ Display menu form for operator to select the data collection 
This will continue until the operator chooses the exit 


selection from either the form called FIRST or the form called LAST } 


series. 


While Current Form <2? ’.EXIT.’ Do 
Begin 
Current Form := ‘FIRST ‘5 
FCLRSH(Current_FormsStarting_Line) 5 


FSTAT(Status_l »Status_2) 3 


If Status_i = 1 Then 
Begin 
Field := ‘CHOICE‘s 


Status_i := 0 
End 


{Display the first form 


{Check the status 
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Else {Else display error message } 
Begin {and exit. } 
Status_l = 135 
Next Form : ’ 
Length s= 63 
MOVE (Next_Form:rName_DatarLength) 3 
Writeln(’Error opening library files Press RESUME to continue. ‘)5 
Writeln# | | 


WTRES {Wait for the operator to } 
End} {IF} {read error message } 
While Status_1l <> 1 Do 
Begin 


FGET(Response+sTerminatorsFieldsIndex) § 
FNDATA(ResPonse sName_Data) 5 
FSTAT(Status_1 +Status_2) 3 

If Status_1 < O Then 


Begin 
Message := ‘Illegal Choice "(O)5 
FPUTL(Message) | 

Ends {IF} 


Ends {While Status} 
Length := 63 
MOVE (Name_DatarCurrent_FormsLength) 5 
If Current Form <> ‘.+EXIT.’ Then 
Begin . 
Field := Responses 
Field(2] := ‘F’$ 
FNDATA(Fields+Name_Data) } 
Orpen(Out_Files 
Name_Data 
4 
More_Data := TRUES 
While More_Data Do 
Begins | 
| Next_-Form := Current_Forms 
While Next Form <> ’.NONE.’ Do 
Begin 
FCOLRSH(Next_Form:+Starting—_Line) 5 
FGETAL(ALL_DatarTerminator) 5 
Write(QOut_File+Al1_Data) 5 
Field s= ‘NKTFRM‘’ 3 
FNDATA(Field»sName_Data) 5 
MOVE (Name_DatasNext_Form+sLength) $ 
Ends {While Next Form} 
Status_i s= O03 
Field := ‘’CHOICE’s 
Next_-Form = ‘LAST ‘3 
FOLRSH(Next_FormrStarting_Line) & 
While Status_i <> 1 Do 
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Begin 
FGET(ResponsesTerminatorsFieldsIndex)$ 
FSTAT(Status_1 »Status_2) 3 
FNDATA(ResPonse sName_Data)d 3 
FSTAT(Status i »Status_2) 3 
If Status_il < O Then 


Begin 
Message := ‘Illegal Choice "(0)35 
FPUTL (Message) 

End {IF} 


Ends {End While Status} 


If Responsell] = ‘2’ Then 

Begin 
More_Data := FALSE 3 
Close(Out_File) 

Ends {IF} 

If ResponselijJ = ‘3’ Then 

Begin 
More_Data := FALSE: 
Close(Out_File)s 
Current Form := ’.,EXIT. ’ 

Ends {IF} 

Ends {While More_Data } 
Ends (LF? 


Ends { While Current_Form } 
FLCLOSs { Close FMS library file } 
End, 
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Documentation Supplement 
READER’S COMMENTS Order No. AA-P103B-TK 


NOTE: This form is for document comments only. DIGITAL 
will use comments submitted on this form at the com- 
pany’s discretion. If you require a written reply and 
are eligible to receive one under Software Perfor- 
mance Report (SPR) service, submit your comments 
on an SPR form. 


Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 


Did you find errors in this manual? If so, specify the error and the page number. 


Please indicate the type of reader that you most nearly represent. 
L] Assembly language programmer 
L] Higher-level language programmer 
L] Occasional programmer (experienced) 
_| User with little programming experience 
L] Student programmer 
(J Other (please specify) 


Name____ ss —sSsSSSsSsssseeesssSSS—C—OeessSSS—COseesSCOsFsssSCsssSCSCSCSSTT. Date 
Organization | 
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a i I Ode 
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Country 
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